ling tecnica per sigulare la ricorsione in COBOL. > See 
Ce tT Tit itt titettittiitttrrttettrtititititilitetitettest tities t eer eee 26. 
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. LA RICORSIONE IN COBOL 
APPLICATA A TRE ESEMPI= 


PERMUTAZIONT — 


HERRERRERAAS AREER RRR RA RENEE A ERR REE ERE RRR RARE SER ERSE RSS SR RRER AREER REE 


Giacomini Daniele 


Treviso, Giugno i983 


omen 
ma 
ot 
eer 
ma 
a] 
cot 
ot 
i) 
‘ct 
mm 
ao 
E 
ae 
ole 
iar | 
es 
ie) 
rs 
i 
wo 
art 
an 
Se 
vet 
oe 
« 
es 
ine 
ae 
re 
ct 
i 
fort 
Prey 
on 


Il concetto di locale e di globale 


Nikiaus Wirth {1} splega moito bane ia differenza tra ii concebtto 
di “locale” ed! “globale’ all‘interno di un programma: 
"Se un oggetto - una costante, una variabile, una orocadura, una 
funzione oun tipo - e° significative solo ali’interno di una determina- 
ta parte del programma, viene chiagato ‘locale’. Spesso conviene rap- 
presentare questa parte mediante une proceduray; gli oggetti locali ven- 
gong allora indicati nel titolo della srocedura. Bato che le procedure 
stesse possono essere locali,; puo” accadere che piu’ indicazioni di 
pracedura siano innestate i°una nell’altra. 

Neil’ambite della sie Si possond ae riconascere due tipi 
di aggettit gii oggetti ‘locali’ e gli oggetti “non lecali’. Guesti ul- 
Limi sono aggdatti definiti nel orogramaa (o sits procedura) in cui @ 
inserita la ee ag (ambi iante’ della procedura). Se sono definiti ne! 
r 


i 


p 
programma oo. pale, snd detti “giobali’. In una procedura ii campo di 
influenza degli oggetti ae [i corrisponde al corpo della procedura. In 
parbicclare, terminata |’ esecuzione della procedura, le variabili focall 
saranng ancora ‘ipa per indicare dei nuovi valori} chiaramente, 
in una chiamata successiva della stessa procedura, i valori delle varia- 
bili locall saranno divers! da quelli della chiamata srecedente. 

E essenziaie che i nomi degli ogdethi iocali nan debbano dipendere 
dall’ambiente della procedura. Ma; in bal odo; pun” accadere che un 
nome x, sceite oer un oggeatho locale della procedura a Hentico a 
quello di un oggetta definito nei orogramma ambiente esta situe- 
zione pera” @° corretta sola se la canis ” ioc ms 4 WON @° Signi- 
ficativa per P, cioe” non viene applicata in P. Si adatta quinth le 

“regola fondamentaie’ che x denoti entre P la grandezza igcaie e@ fuori 


| 
da P quella non locale". 


La ricorsione 


; Nagin @ Heras f@} “es 
la definizione e° usate al- 
i puo” considerare [a seguente 


"La ricorsione” come spiegano Ledgar 

metode di definizione in cul l’oggatte de 

i"interne della definizione. Per as SER! 0 
definizione della parala “discendente’ 


Un discendente di una persona e° il figiio o fa figlia di una per- 
sOnay G un discandete di un figlio o di una figlia. | | 


fkiindi, come scrive Lawrie Moore {3}, un sotto-programma ricorsive 
"e”’ un soblo-programma che corrisponde direttamente ed utilizza una de- 
Finizione ricorsiva". Qyvero, molto piu’ semplicemente come dicono Aho, 
Hopcrofrt ed Uliaan £4): “Una procedura che chiama se stessa, diretta- 
mente o indirettamente, si dice essere “ricorsiva’”. 


pets, 


é 
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gore 3} inoltre a ssiunge quanto segue: ila chiamaba genera un 
nuovo biaces dio POgP Amma con il suo proprio “scope”, i] suo propria 
spazio di lavora; la sua proria esistenza virtuale. (...) Questo proces- 
so prande iuogo al momento della esecuzione de! pr: gen (run-tiee). 
Al momento della compilazione ne“ fa macchina; ne’ [‘inbelligenza umana 


possona dire quante volte [a procedura sara’ ri ichianata al momento della 
esacuzione. Percio” ia creazione di un nuovo blocco di programma a! so- 
mento della asecuzione e° un processo dinamico. La creazione ricarsiva 


di nuovi biocchi di-programma e° una struttura di programmazione dina- 


mica”. 


erm, 


™, 


Hevoy 


Una tecnica per sigulare fa ricorsione in COBOL PAGE 4 


LE PROPRIETA™ DEL LINGUAGGIO RICORSIVO 


La definizione di procedura ricorsiva data da Aho, Hopcroft ed 
Wilgan @° una condizione necessaria sa non sufficiente perche’ un 
Li a Gi de rican possa definirsi ricorsivoy infatti e* tale 
quel eae che oltre a permettere la chiamata di una procedura da 
parte di se’ slessa, permette una dichiarazione “locale” delle variabili 
ovvero ia l“allocazione dinamica delie variabili stesse. 


Non non vie dubbio che i! linguaggio COBOL non sia ricorsiva, 
eppure ameette ie allinterno di un paragrafo si faccia la chiamata 
delic stessa paragrafa tramite il ara a Tn effetti non si 
parla di ricorsione proprio perche” ij ee solo variabili 
“globali’. 


nat 


Una tecnica per sigulare fa ricorsione in COBOL eon PAGE 


DESCRIZIONE DELLA TECNICA PER SIMULARE LA RICORSIONE IN COBOL 


Introduzione 


Le variablli di scambio di un sottoprogramma possono collegarsi 
il’esterng, a seconda del contesto de! programma, in tre modi: 
in Inputy in Gutput o in Input-Qulput? a seconda che importi che i dati 
entring nel sotbopramma ma non escano, che | dati escano soltanto op- 
pure che i dati debbano prima entrare ¢ poi uscire aodificati. 


La pseudocodifica utilizzata 


La pseudacodifica ubilizzata per mostrare Zii esempi; prima 4! 
presentare ia trasformazione in COBOL, si rifa’ al linguaggio MPLIT 
Burroughs (Algol-like) dove le variabili di scambio di una procedura 
vengono semplicemente nominate a fianco del nome della procedura tra pa- 
rentesi. Cio” corrisponde ad una dichiarazione iaplicita di quelie va- 
riabili con “scope” locale e con caratheristiche identiche a quelle usa- 
te nelie chiamate relative. In particolare se nella chiamata vengana 
usate costant! alfanumeriche, la variabile corrispondente sara’ di tipa 
alfanumerico di lunghezza pari aila costante trasmiltente, se di tipo 
nugericoy ia variabile corrispondente sara” di — err 

‘integer’ o “fioat’. 

fuindi in questo tipo di nseudocodifica non sono permasse le varia- 
Dili di scambio in Output. 

Le varpiablii di cambio di questa aseudocodifica $i collegano per 
posizione. 


wg 


La siaulazione con un linguaggio avente solo variabili globali 


Il problema deila sigulazione della ricorsione si risolve ubiliz- 
zando uno STACK per ogni variabile locale. | 

La tecnica e° indicata aatte alae: ite da Jerrold L. Wagener 
{3}. Una volta ietersinata a priori gual’e” il numero massimo di livel- 

li delia ricorsione occorre associare ad ogni variabile, jocale che non 
sia collegata con [’esterno in Input-Output, uno stack con disensione 
pari a quel numero. Quindi, ad una varabile scalare viene associate un 
yettore, ad un vebtore viene associata una mabrice, @ cosi* di seguite. 
L°indice dello stack (Stack Pointer) viene indicato con OP. 

La Simulazione si divide in due fasi? la prima seve essere affet- 
tuata subite prima della chiamata ricorsiva e consiste nella conserva- 
zione nei vari stacks dei valori delle variabili di saith’ ig che non sana 
in Input-Qutput con una operazione di ‘push’? la seco uae dave essere ef- 
fattuata subite dono la chiamata ricorsiva @ consiste nel recupero dal 
vari stacks dei valori originari delle variabili con una operazione di 


“BOP” « 


lina tecnica per si@ulare la ricarsione in COBOL PAGE 


Esempia? 
Procedura picorsiva Trasformazione non picorsiva 
PROCEDURE PROCL (V, 6, 2) PROCEDURE PROCI 
%& commento | oi a 
: | f push 
‘ SP s= SP + 1 
: SAVEVISP) f= Y 
; SAVEZ(SP) c= Z 
Z & @ una variabile in 4 cal! 
FA Tnput-Gutput zizzi-i 
PROCL (V, 6, 2-1) PROCT 
‘ y4 pop 
‘ Y= SAVEQ(SP) 
; Z = SAVEZ(SP) 
: SP r= SP - i 
END PROCL END PROCI 


Tengo a precisare che la tecnica e° valida solo se all’interno di. 
lina procedura ricorsiva tutte le iterazioni che contengono una chiamata 
(diretta o indiretta) alla stessa grocedura sono a loro volta espresse 
in forma ricorsiva (si veda il problema delle perautazioni}. 


= 


= 
= 


Una tecnica per si@ulare ia ticorsione in COBOL PAGE 


ESEMPT 
Torre di Hanoi 


Descrizione dell ‘algor ita; Wagener 5} 

"Su una tavola sono infiss tre pioli identici, ed unc contiene N 
anelii, tutti di diametro differante (ogni anelio ha un buco al suo 
pene in modo da fd essere sopastato. da a oe un‘altra). 

L"obbiettiva e° quello di spostare tubti gli anelli su di uno degli 
altri due pioli, asservando semplicesente ie due regole seguenti: 

i. Si puo’ @uavere solo un anelio alla volta. 

2. Non si puc” mai methere un anello al di sopra di uno piu” 

piccolo sullo stesso pigto. 


1 é 3 
| 
| | | 
: | | 
coe | 
se | | | 
fe | | 
LA eR Nant roan er ve | noms neny Ort oper rr res 
(a) 
i 2 3 
| | | 
| 
| | J 
| ne 
| eee | 
Sa 
Ue ie asl ee Se 
(b) 
Figura i. Torre di Hanoi, con N anelli. 
(a) Configurazione originale. 
(b) Dopo aver spostate N-i anelli. 


Nella figura ia gli anelli appa ‘ono stl po Si SUPPORgA che essi 


debbano essere spostati sul piolo 2. $i supponga che gli N-1 anelli 


superior! vengano spostati in qualche aodo fosservando [e regole natu- 
raigente) dal piolo i al piole 3, come illustrato in figura 1b. 

iigra i°N-esimo anelio (il piu” larga) puo” essere spostato nel piale 
2; @ la pila di N-i anelli che ora si trova sul piolo 3 puo” essere 
spostata ancora, questa volta sul pioio @ al di sopra dell’anello 
largo che e° appena stato messo [i*. Indichiamo con HANOL questo algo- 


rites. (ase). 
Se Ne ainore di i HANOI non fa nulla come dovrebbe dal somento 


e 


Una techica per siulare la ricorsione in COBOL PAGE og 


che cio” signi ifica che non ci sono anelli da muovere. Se Ne° 1) le 
istruzion| contenute nel predicate IF-Fi vengane: esegu it bey fla nessuna 
deile chiagate ricorsive fa nulla data che N-1 e° zero. Pertanto in 
questo caso (N uguale ad i, @ assumendo Pi uguale ad i e Pe uguale a 2) 
il risultate e° sean! icenente 
MUOVIE L°ANELLO 1 DAL PIOLO 2 AL PIGLO 2 

che corretio per une stack iniziale consistente di un solo anelio. 

si pus’ vedere che l’algoriimo funziona correttamente se Ne” uguale 

2. La prima chiamata ricorsiva sposta un anelio (N-1 uguale ad 1) dal 

wre ial piolo 3 (ancora assumendo Pi uguale ad 1 e P2 uguaie a 2) ¢ 
Si sa che questa e” la mossa corretta. Viene eseguite [°istruzione di 
stampa (spostamento deil°aneilo @ sul pioio 2). Lvoutgut consiste di J 
linge: 
MUOQUI L°ANELLO i DAL PIOLO i AL PIOLO 3 

MUOVE L°ANELLO 2 DAL PIGLO i AL PIOLO 2 
MUQUT L°ANELLO 1 DAL PIOLO 3 AL PIOLO 2 

Ora che si sa che HANOI funziona correttamente per una gila di due anel- 
ii $i puo” usare una analisi simile per mostrare che funziona per tre 
aneili, quindi quatto, cinque, e cosi” di seguite, ger qualsias! valore 
dik. 


Variabili: 


I CR UR eR RO ti 


ae N° a dimensione della torre in nuaero di anelli: gii analli sono 
we! cain da i a N} 


Pi oe il numero del piolo su cui si trova inizialmente la pila di N 
set 7 | anellij 


ite, 


P2 e° il numero del piolo su cul deve assere spostata la pila i anel- 


wie &-Pi-P2 = PZ e° i] numere deli’altro piolo (e° evidente essendo i pioli 
wet , pumerati i; 2 e@ 9}. 


Pseudocodifica ricorsiva di HANOI= 


Piet 20 GO Gch OHO He OE RN RP CAIN: GE He HY ame BE GEE a oe RES HE OH Ga SS HE TT te BD Hee Ok Sate ate 


HANOE (N, Pl, Pe) 


IF N > 0 
THEN 
HANOT (N-1, Pl, &-Pi- P2) 
scrivit "MUQVT L°ANELLO " N “DAL PIOLO." Pi “AL PIOLO ® Pe 
HANOI (N-i, O-Pi-Pe, Pe) 


FI 
END HANOT 


eis, 


ig 


na tecnica per simulare fa ricorsione in COBOL 


Codifica in linguaggio MPL II: 


ee Se RG ER eh EH EE Ree i RN See RE GE hy eS OR a UE hs UR iy Ge 


$ LIBRARY LM. ia 


fs LIS SOAS Ken OY She ets INE IS eR it ier eens wins end ain MUSED seep Mer any vale ns Ye yan amin ante Has ibn et 


DECLARE RECORD. PR.FILE CHARACTER { 
REMAP . RECORD.PR. 


“ey ry 


DEVICE (PRINTE ER. FILE) i= PR; 


13233 


RECORD (PRINTER.FILE} t= 1323 
BUFFER (PRINTER.FILE) t= 12} 


NO.BUFFERS (PRINTER.FILE} i= 13 
NO.LABEL (PRINTER.FILE} ¢= 1; 


CLOSEMGDE (CPRINTER.FILE) t= RELEASE; 


MYUSE (PRINTER.FILE) S= QUT 


PROCEDURE PRINT.MESSAGE (N, PL, P2); 


DECLARE N.CH CHARACTER (6)3 

DECLARE P1.CH CHARACTER (4); 

DECLARE P2.CH CHARACTER (6); 

CONVERT (1, N.CH, ND} 

CONVERT (1, PL.CH, Pl); 

CONVERT (1, Pe.Ch, Pe); 

SMEAR (RECORD.PR.CH, 0, ide, ""; 


PUT? 


5 
ay 


y 192)} 


SUBSTR (RECORD. PR.FILE; 0, 14) r= "MUOVE 


SUBSTR (RECORD.PRFILE, 13, 4) 


sa NN, CH} 


I 
TLE? RECORD.PR.CH(i32) CHARACTER(1); 


PAGE 
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Z ANY PRINTER BEVICE 


LO ANELLO" 


SUBSTR (RECORD.PRAFILE, 21, 10) t= " DAL POSTO"; 


SUBSTR (RECORD.PR.FILE, dé, 4) 2=.PL.CH; 


SUBSTR (RECORD. PR.FILE, 39, 9) t= " AL POSTO"; 
SUBSTR (RECORD. PR.FILE, 49, 4) t= Pe.Ch? | 


WRITE (PRINTER.FILE}; 
END PRINT MESSAGE? 


= 
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PROCEDURE HANOI (N, Pi, 


IF N30 
THEN 
DO; 


HANOI (h-1, Pl, d-Pi- 


peje 
ll Fd 


4 
é 


yy 


PD}; 
Z scrivit "MUOVI L°ANELLO " N "BAL POSTO "Pi "AL POST " Pe 
PRINT ‘ese (Np Ply P2}} | 


END? 
END HANOT? 


x 


DECLARE N 
DECLARE P 
DECLARE P 


OPEN (PRINTER.FILE); 


HANOT (Nt, -PL-P2, P2p 


DISPLAY (" INSERISCT LA DIMENSIONE DELLA TORRE "); 


INPUT.N (ND; 


DISPLAY (" INSERISC] TL POSTO ATTUALE DELLA TORRE: : e748 50) | 


INPUT.N CPL}? 


DISPLAY Oy TNSERISCT IL 
INPUT .N (P2)} 


HANOI (N, Pi, P2); 
CLOSE (PRINTER.FILE}; 
STOP} 


END MAIN? 
FINI} 


P 


0 


5 


TO IN CUL JUDIE PORTARE LA TORRE: i, 2, 33 


ry 
‘- 


dan 


na tecnica per simulare la ricorsione in COBOL 


Wariabi lit 
BAVEN e i| vettore ulillzzate per conservare il vaiore di N; 
SAVEPL 8° il vettore ubilizzate per conservare if valore di Pl; 
SAVEP2 a il vettore ubilizzato per conservare if valore di Pe; 
SP 


ti eb ere sey 4He 


FI 
END HANOI 


e° |indice dei vebtori su L indicati (stack pointer). 


Pseudocodifica che siaula fa ricorsione: 


‘se SSSR ae Hh aa te Hah iy ian ny ah sta WO AVM RE ARO ga sone Ae 


N f= SAVENCSP) 

Pa i= SAVEP2(SP) 

OF .88 SP Lo. be 

Scr lvis “HUOVT LTANELLO " NODAL PIOLG." Pi "al PIOLE 


MANO f ve -Pi- 72, P2} 
Nis * SAVEN(S uP) 
shades 

ee 


i Hl 


oo 
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Codifica COBOL: 


Ses ie Ri, A Woe a ee ee HE ty SE Ne See 


000100 aaa AEE aA AA RR IO EE EE 
OO0200% PROGRAMMA COBOL HC.94 x 
0003008 | * 
0004008 DATA: 18/08/84 (G6/HH/AA) # 
O00300% 
Q00600% ARGOMENTO: SIMULAZIONE DI RICORSIONE CON TORRE DI HANOT i 
C011 GQHHRHERAA ERE E HERS HARE SHEEN HENAN EEN ASCE SEE EERE RESET RARE AARNE SY 
004400 

004500 

006600 IDENTIFICATION DIVISION. — 

004700 | 

004800 | 

OO4900 ENVIRONMENT DIVISION, 

007000 


007100 


007200 DATA DIVISION. 
007300 

007400 

007500 WORKING-STORAGE SECTION. 
007600 

007700 01 RECORD-STACKS. 

007800 G2 SAVEN OCCURS 100 TL 
007900 O2. SAVEPL OCCURS 1 
008000 Q2 SAVEP2 OCCURS 100 7 


IME ES PIC 7. 
O08100 : 
QO08200 G1 STACK-POINTER. | | 
Q08200 02... SP | PIC 99 VALUE 4. 
008400 
QOB300 01 VARIABILI-SCALARI. 
008400 02 8 Pit 9Y,.. 
608700 Q2 Pi PIC 9. 
O08800 O2 Pe Pit. 9s 
OOB900 


009000 


na tecnica per simulare fa ricorsione in COBOL PAGE 


~ 009100 PROCEDURE DIVISION. 


009200 


009300 MAIN. 


009400 
009300 
009400 
009700 
009750 
009800 
GO7900 
0106000 
§10030 
O10100 
010200 
019300 
0104609 
010900 
010600 
010700 
010509 


DISPLAY “INGERISCI LA DIMENSIONE DELLA TORRE". 
DISPLAY "(DUE CARATTERT)". 
ACCEPT N. 


I 
I 


DISPLAY “INSERISCI LA POSIZIONE INIZIALE DELLA TORRE"... 
DISPLAY "(UN CARATTERE: 1 020 2)". 

ACCEPT PL. 7 

DISPLAY “INSER 
DISPLAY “(UN C 
ACCEPT Pe. 


ISCI LA DESTINAZIONE DELLA TORRE". 
ARATTERE) | 


PERFORM HANOI. 


STOP RUN. 


preete 


Lind 


na tecnica per simulare la ricorsione in COBOL PAGE = 14 


010900 HANOI. 


011000 
O11100 

011206 
O113004 
O11400 
O1156 

0114060 
O11700% 
G11866 
O11960 

$1 20008 
012100 

O12200% 
O12308 
012400 

§12500 
012406 
O12700 

§12860 
Q12850 
129008 
013000 


— O1A106 


013200 
013300 
013400 
013500 
O13400% 
013700 
0138008 
013900 
014000 
014100 
014200 


THEN 
pu 


ish per conservare ie variabili di scambio 
COMPUTE SP = SP +1, 
COMPUTE SAVEN(SP) = N, 
COMPUTE SAYEP2(SP) = Pe, 
cambiamenti alle yvariabili di scaabi ia prima della CALL 
COMPUTE N=N- 1, 
COMPUTE Pe = 4 - PL - Pe, 
call 
PERFORM HANOI, 
pop per recuperare i valori delle variabili di scambic 
COMPUTE N = SAVEN(SF}, 
COMPUTE Pe = SAVEPE(SP), 
COMPUTE SP = §P - i, 


uSh pe i ¥a 
COMPUTE Sp = = “ + dy 
COMPUTE SAVEN(SP) = N, 
COMPUTE SAVEPL(SP) = PL, 
difica dei valori delle variabili di scambia 
C ee N=oN- 1, 

Pi.= 6 <-Pi ~ Pe, 


| ba ‘ ecageare i val 
COMPUTE Pi = SAVEPLCEP), 
COMPUTE SP = SP - 1. 


ea 
Wise? 


ae 


Una tecnica per sigulare la ricorsione in COBDL. 


mith bee 
Wagener J, L.: "FORTRAN 77 Principles of Programming” 
Wiley, 1980, pag. 227. 
scat" 


Moore L.? "Foundations of Programming wi ith Pa 
177-180. 


Ellis Horwood Limited, 1980, pp. 


Arsac J.? "La construction de programmes structures” 
Dunod, 1977, capitate 18. 
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Una tecnica per simulare ja ricorsione in COBOL PAGE  1é 


Quicksort (ordinamento non decrescente? 


"Gli elemanti di base del ‘quicksori’ sono schematizzali in figura 


TABLE (vettore da ordinare}) 


~ww~ \ parbtizione dei valori Figura 2, Ii concette 

~~-~ > ginori del ‘valore base deiiva al gor i tao de! 

oom 7. Sl iotate: quicksort: partizione del 
vettore in due gruppl 

ae valore allocate disordinati separati da un 
valofe glazzato correbttamen- 

Sie.) partizione del valori te nel suo posto rispetta 

~ow= > gagdior! del all’ordinamento. | 


---- / “valore allocate’ 


Un passo attraverso il vettore da ordinare a° sufficiente per piazzare 
un valore del vettore (diciamo i! primo} nella sua posizione finale ne! 
vettore ordinate, ead allo stesso tempo per lasciare tutti i valori aino- 
ri di questo da una parte (aa disordinatamente) © tutti i valori maggio- 
ri dall’altra. Allora delle chiamate ricorsive possono essere usate per 
ordinare ogn°una di queste due “partizioni’. (...). Pertante |°algoritmo 
assenziale del quicksort a°: 

1. Localizzare ia posizione (finale) de! prima valore, dividendo 

in questo mado i valori. 

é, Ordinare [a prima partizione. 

3. Ordinare [a seconda partizione. 
Indichiama con PARTIT ii modulo (subroutine) che esegue if passo 1 
~ asso delermina ia posizione propria, PL (Proper Location), deli°ele- 
mento TABLECL) all’ interna del vettora TABLECLIU}, mette questo valore 

in questa posizione (cioe* viene scambiate if] valore di TABLECPL) con 

quelio di TABLECL}}, mette tubti i valori minori di TABLE (PL) nel seg~ 
mento di vebtore TABLE(L=PL-1), ¢ mette tubti i valori nage ori i 
TABLECPL) in TABLECPL#150}. Indichiamo quindi con WSURT aldoritma 
del quicksort. Assumendo che PARTIT e le chiamate ricorsive di QO0R7 
facciang ii loro lavoro correttamente, una analisi informale delia 
correltezza d! QS0RT potrebbe orocedere come segue. Ge U non e@° maggiore 
di L allora c’e” solo un elements (o nessuno) in TABLE(LEU), ed inoltre 
TABLE(LIW) e° gia” nel suo stato finale. Se Ue maggiore di L allora 
{per assunziona) PARTIT rinartisce correttamente TABLE(LSU). L’ordina- 
mento separate delle due partizioni (per assunzione eseguito corretta- 
mente dalle chiamate ricorsive) completa i°ordinamento di TABLE(LIU). 

(.se). La figura 2 mostra graficamente ia funziona di PARTIT, 
la parts {a} prima che NAINLOOP sia terminate (MAINLOOP e° i] nome di un 
loop contenuto in PARTIT), e fa parte (b) dopo che MAINLOOP e° termina- 
to. 


Una tecnica per sigulare la ricorsione in COBOL PAGE 1? 


Scambig 


| 
L dl [PL i 

oe bie a (= mee 
TABLE| | L | = _— 

based ciutingdautaedie adecediuctalcudbamuhseaadc tac sclaueals bediad 

ree a De re ee i 

| | | | 
= di TABLE(L) =| di TABLE(L) 
bo 
2 di TABLECL) oe dl TABLECL) 
(a} 
Scaabia 
| ae a 

L| [PL J J 

= al ee ee eee en = 
TABLE| | Peale a = 

SEip) nen oo oer eee (ee hell ee ee ce a 

rare a eee | 5 a aa een ee eT eter eee 

| 
= di TABLECL} 2 di TABLE(L) 
(b) 
Figura 3. La funzione della subroufine PARTIT. (a) Prima del 
termine di MAINLOOP. (b) Dopo i! termine di MAINLOOP. 


Likbate’ yarso dastra 
ore di TABLE(L), 
al, fing a che 
TABLE(L). Quest! 


Praticamente; dy iniziands da 
fing a che viene trovata un gieme 
quindi PL viene “siittate’ ny Ts 
viene trovate un elemento ¢i TA 
valor vengono scambia 
a quando J e PL di ‘in 
partita, come ostrate 
di TABLE{L}." 


| valore L+l, viene “5! 
elemento di TABLE maggi 
Qo sinistra, inizianda « 
di TABLE minore o uguale di 
e lo siittamento Tiprende. cio” continua fine 
ontrano’, 6 in quel momento TABLE e° stata ri- 
o in figura 3b, @ PL e° la locazione per il valore 


REACO 
bi 
¢c 


f * 


e 


re 


Una tecnica per siqulare la ricorsione in COBOL PAGE 


Yariabili: 


0 Ge a a Se a He me He 


TABLE e* il vettore da ordinare} 


L e° l’indice inferiore del segmente di vebtore da ordinare; 
U e° [indice superiore del segmento di vettore da ordinare; 
PL (proper location} e° l°indice che cerca e trova la giusta 


posizione di TABLE(L) nel vebtore; 


Pseudocodifica ricorsiva di QS0RT= 
QGORT (TABLE, Ly U 
IFUPL 
THEN 
VAR PL INTEGER 


PARTIT (TABLE, Ly U, PL) 
QSORT (TABLE, Ly PL-1) 
QS0RT (TABLE, PLtl, U) 
FI 
END QSORT 


rey 


ina tecnica per simulare la ricorsione in CORCL | PAGE 
Variabili: 

J e” |’indice che insiege a PL serve a ripartire ii vebtore 
TABLE. 


Pseudocodifica di PARTIT: 


I ee 


PARTIT(TABLE, Ly Uy PL) 


VAR J INTEGER 
251 assume chal <u 
Jr bLei 
PL r= 
DO NAINLOOP FOREVER 
DO FOREVER £ ...5posta J a destra... 
IF TABLE(J) > TABLECL} OR J >= PL 
THEN 
EXIT 
ELSE 
J is gti 
FI 
END. 
DO FOREVER &% ...sposta PL a sinistra... 
IF TABLECPL) <= TABLE(L} 
THEN , 


TF PL <= J 


& scambio del valori tra table(pl) a table( p> 
TABLE(PL} ss=2 TABLE(J) 


FI 
OD MAINLOGP 


& oee0ta TABLE e° stata rigartita, Pl e* il posta di TABLE(L)... 


TABLE(PL) t==: TABLE(L} | 
A sesOPa TABLECPL) 2° nella sua giusta posizione... 
END PARTIT | | 


aah 


ina Cecnica per simulare fa ricorsione in COBOL PAGE 


ee See WOE. OR SRE RE GE UN SN GRR Re de RE Olt ae: le te SO IR RR ee ee 


PROCEDURE MAING 


$ LIBRARY CONVERSION 
$ LIBRARY DECIMAL 

& LIBRARY STRING 

$ LIBRARY LHR 

§ LIBRARY LH.FX 

§ LIBRARY LH.IN.R 

$ LIBRARY LH.OUT.N 
$ LIBRARY LN.IN.HN 

$ LIBRARY LM.OUT.MN 
$ LIBRARY LA.XCH 


PROCEDURE PARTIT(TABLE, L, Uy PL}; 


DECLARE J FIXED; 


Z4si assume cheb < U 


20 


ee 


= oa 


' 
sya” 


na tecnica per si@ulare la ricorstone in COBOL 


DQ MAINLOOP FOREVER; 


DO FOREVER? 2 ...sposta J a destra... 
IF TABLE((d-1)#2) > TABLEC(L-1)#8) OR J d= PL 
THEN. 
UNDO} 
ELSE 


Joie Jt i} 
END? et ae 
BO FOREVER} & eS POG La PL a sinistra... 
IF TABLEC(PL- “L)He) 4  ABRLRE ORR) | 


PAGE 


ra 


THEN 
UNDO} 
ELSE 
PL i= PL - 4} 
ENB? | 
 # «se0fa @5ce dal MATNLOOP se TABLE e° completamente ripartita.. 
TF PL <= J 
THEN 
UNDO; 
ELSE 
DO; 
SCAMBIOCTABLEC(PL-1}42}, TABLE((J-i)82))} 
dts J+ 1} 
PLos= PL - 1} 
END} 


END MATNLOOPs 


% seeGfa TABLE e° stata ripartita, PL e° i 
SCAMBIO (TABLEC(PL-1)¥2), TABLEC(L-L)82))}} 
& sas0Pa TABLECPL) @° nella sua giusta posizione... 


ERD PARTIT? 


<<. = 
) 


na tecnica per simulare ia ricorsione in COBOL 


PROCEDURE QSORT (TABLE, L; U); 
DECLARE PL FIXED; 


PARTIT (TABLE, Ly Uy PL); 

QSORT (TABLE, L; PL-1}; 

QSORT (TABLE, PL+i, U); 
END; : | 


BA EE RS IEE A EM HO hk SURO TMA IKE BOSE ORRIN HRNIRL AND ile SIEM ARNE NBM SN UNIMY ea en An Ub cA RNR 


DECLARE P FIXED; 
DECLARE DIM. TOT 2 


DISPLAY CINSERISCI LA DIMENSIONE DEL VETTORE"): 
INPUT.N CP); 


DIN.TOT i= B ¥ 33 
DECLARE 1 VETTORE RECORD 
© ETTORE FIXED} 


IN.MAT.N.1 (VETTORE, P}} 
OUT MATIN. (VETTORE, Ph} 


QGORT CVETTORE, 1, Pd: 
OUT.MAT.N.i (VETTORE, P)3 


STOP} 


END MAIN; 
PINT; 


CHARACTERCDIN. TOT}, 


he, 


Una tecnica per simulare la ricorsione in COBQL PAGE 


Variabili= 
SAVEL e° if yettore ubilizzato per conservare ii valore di L} 
SAVEL e° i! vebtore ubtilizzate per conservare i] valore di U} 


SP e* jo stack pointer. 


all a cece ee Ri ee ee ee 


= SAVEL(SP) 


- 


3 


Una tacnica per simulare fa ricorsione in COBOL PAGE 24 


Codifica COBOL: 


Ves ee eR ee SE ee eB ee ee a 


HOGTGGERERERERE EER ESE SENSE U ERAN RE REESE ERE REESE R EERE RE SEER ENE REE BEEK EEE 


” 0004008 PROGRAMKA COBOL HE.O4 x 
Ne OO0500% | e 
000400% DATA: 22/08/84  (GG/HM/AA) x 
7 000700. | ' 
©) - QOOBOO# ARGOMENTOs STMULAZIONE DI RICORSIONE CON QUICKSORT x 
000900 . 
“a OOLOCOKEREERRES AER EER ERE ARLE RENE XGER ERE RSER EERE EE REEE REE EEEEEE PERERER EH 
C) 009100 
909200 
" 009200 7 
O 909400 IDENTIFICATION DIVISION. 
909500 
i 009400 
( 009700 ENVIRONMENT DIVISION, 
002800 
. 009900 
( 610000 DATA DIVISION. 
010100 
010200 
010300 WORKING-STORAGE SECTION. 
010400 
010500 O1 RECORD-STACKS. 
010600 02 SAVEL OCCURS 100 TIMES PIC 999. 
010700 02 SAVEU OCCURS 100 TIMES PIC 999. 
010800 
010900 01 STACK-POINTERS. | 
011000 02 «SP PIC 999, 
; 011160 
O11200 OL VARIABTLI-SCALART. 
01130002 AL PIC 999. 
011400028 sL IC 99 
011500 02s PIt 959. 
11600 «02 TEMP PIC X(15). 
01170002 PIC 999, 
o1ig00 «= 02 PIC 999, 
011900 
ee: 012000 G1 RECORD-TABELLA. | 
* O12100 02 ‘TABELLA OCCURS 100 TIMES PIC X(15). 
012200 | 
912300 


Una tecnica per simulare la ricorsione in COBOL 


012400 
012300 
012400 
012700 
012800 
012700 
013000 
013100 
013200 
013300 
013400 
013500 
0134600 
013700 
013800 
013900 
014006 
$1410 
024200 
014300 
014400 
014500 
014600 
014700 
014800 
014900 
513006 
$13100 
013200 
013300 
013400 
013900 


O13600# 


015700 
013806 
019900 
014000 
016100 
014200 
016300 
014400 
014300 
§14600 
014700 
$14800 
016900 


PAGE 


PROCEDURE DIVISION. 
MAIN. 

DISPLAY "INSERISCI IL NUMERO DI ELEMENTI DA ORDINARE". 

DISPLAY "(TRE CIFRE}". 

ACCEPT U, 

IF U> 100. 

THEN 
STOP RUN. 
COMPUTE L = 1. 
PERFORM INSERIMENTO-ELEMENTI VARYING I FROM 1 BY 
UNTIL 13 
PERFORH QSORT. 
PERFOR OUTPUT-DATI VARYING I FROM i BY 4 
UNTIL I> 4, 

STOP RUN, 
INSERINENTO-ELEMENTI. 

DISPLAY “INSERISCT L°ELEMENTO ", 1, " DELLA TABELLA". 

ACCEPT TABELLACL). 
PARTIT. 

Si assume che L < UJ 

COMPUTE d= Led. 

COMPUTE PL = U. 

PERFORM PARTIT~TESTA-MAINLOOP. 

PERFORM PARTIT-MAINLOOP UNTIL PL < J 

OR PL ed. 

MOVE TABELLA(PL) TO TERE. 

MOVE TABELLA(L) TQ TABELLACPL). 

MOVE TEMP TO TABELLA(L}. 


lina Lechica per simulare fa ricorsione in COBOL. PAGE 24 


G17000 PARTIT-TESTA-HAINLOOP., 


017100 
917200 
017200 
017400 
017300 
017400 
017700 
O17800 
017900 


PERFORM SPOSTA-J-A-BESTRA UNTIL TABELLA(J} > TABELLA(L} 
OR de> PL 
OR J.= PL. 


PERFORM SPOSTA-PL~A-SINISTRA UNTIL TABELLACPL) < TABELLA(L} 
OR TABELLACPL) = TABELLA(L). 


O18G00 PARTIT-MAINLOOP. 


$18100 
O18200 
018300 
018400 
018500 
018400 
018700 
OLBEOO 
018900 
019000 
019100 
019200 
019300 
019400 
0197900 
019400 


MOVE TABELLACPL) TO TEMP. 
MOVE TABELLACS) TO TABELLACPL). 
HOVE TEMP TO TABELLACJ). 


COMPUTE J = J+. 
COMPUTE. PL.= PL < 1. 


PERFORM SPOSTA-d-A-DESTRA UNTIL TABELLACS) > TABELLA(L) 
| OR > PL 
OR J= PL. 


PERFORM SPOSTA-PL-A-SINISTRA UNTIL TABELLA(PL) < TABELLA(L} 
OR TABELLA(PL) = TABELLAYL). 


619700 SPOSTA-J-A-DESTRA. 


019800 


019900 
020000 
020100 


COMPUTE J = J+ 1, 


O20200 SPOSTA-PL-A-SINISTRA, 


§20200 


020400 


020300 
020400 


COMPUTE PL = PL - 1. 


“i 
a 
tert 
ere 
i, 
“ned 


ina tecnica per si@ulare fa ricorsione in COBOL 


Se 020700 QS0RT. 
\ O20806 | 
O20900 IF USL 
021000 THEN | | 
O21 1008 le variabili che riguardano PARTIT sono tutte in [-f 
21200 PERFORM PARTIT; 
on 0213008 push 
A 621460 COMPUTE SP = SP + 1, 
G21506 COMPUTE SAVEUCSP) = U, | | 
213308 cambiamenti alle variabili di scambia 
ae O21606 COMPUTE U = PL - 1, 
O21 650% call 
Pa 021700 PERFORM QSORT, 
be! 217308 pop | 
O21800 COMPUTE U = SAVEUCSP), 
0219008 compute SP = SP - 1, 
O21950% push 
O22000% compute SP = $P + 1, 
O22100 COMPUTE SAVEL(SP) = L, 
H221 10% cambiamenti alle variabili di scambio — 
O22200 COMPUTE L = PL + 1, 
H2221 0% call 
HS2300 _ PERFORM QS0RT, 
O22 7308 pop 
022400 COMPUTE L = SAVEL(SP), 
H22500 COMPUTE SP = SP = 1 
H22600 
022706 
O22800 QUTPUT-DATI. 
O22700 | 
§23000 DISPLAY "TABELLA(", I "} =", TABELLACT), 
$23100 


Una tecnica per simulare ia ricorsione in COBOL PAGE 28 
Bibliografia: 
Wagener J. L.: “FORTRAN 7? Principies af PaRAEAE: {3} 


Wiley, 1980, pag. 22h. 


wirth Nw "Algorithes + Data Structures = Prograns" 
Prentice-Hall, i974, op. 74-82. 


Knuth DLE Eu? "The art of Computer Programeing - Vol lume 3 / Sorting and 
Searching" 
Addison-Wesley, 1973, pp. 114-123. 


Aho A. Vi, Hoperoft J. E., Ullean d. D.: "The Design and Analysis of 
Computer Algotithms" 
Addison-Wesley, 1974, op. 92-97. 


na tecnica per simulare la ricorsione in COBOL _ PAGE 2? 


Perautazioni 


Descrizione dell’algoriteo; Wagener {5} 

"Tl problema e° quello di generare tutte le possibili seraubazion! 
dei carabteri di una stringa. Per asempio ia stringa “POR’ ha sei permu- 
tazioni: 

POR 

BPR 

PRE 

RPQ 

ROP 

RP 
(.eed. La figura 4 iilustra i’ idea generale. La figura 4a 
mostra che se ci sono & carabteri in una stringa allora aicune delle 
permutazion! vangono ottenute tenende “fiase” i”’N-asima caratere @ ge- 
nerando tutte le permutazion! dei primi N-1 caratteri. La figura 45 
mostra che allora i"N-esiaa carathere puo” essere scambiato con uno del 
primi N-l caratteri, ed allora fa) viene ripetute. Cio’ continua finche” 
ognuno degli N caratteri originali e° state usate nella posizione N-esi- 
fa « 


a a N-1 oN 
te ae aad 8 oe te Se I a a Hem lO OE LER Heh RU Ge RE SOR a A em Ce Hee GE dior Ga AE RR are GED Ree a oy Oe dem Oi GEN He Gtk at nee Oe Oil 
STRING 
setae i e285 p 
acohatel a! _— 
‘ ai as: on grates rt is wae Mt AQ We feist De) KN Hn > ON uy SIM RN SRD AN UD HRD OR Cs PD. LD 4 PR SER YE DH HAL RN ON cn ee | tae 
| 
i satiety 
Da peroutare occate 
Wh ins ae eH hie A te AR ES em HI SOE CR i Ry OE ARE RO geek Si eine Rin ee ene Ae Rea mi ie i He HR HR a em NG ta a i 
| a= ie 
STRING| Lo] _ 
oe re 
$ 
H RE SN Et TON Tk HN Rl NN RAN On Same ek ORS aan HI Chile alee ae NR ee Sl Onkee See ate Dy cu sh ANN Rea: SO SOE He SO OR GAR Se NG SA Nt oe Sok DN Sn MS mt Some Oak oa Stil) ee see 
| | 
i 
| ica mcwnameicaces Mieai eset 
* 
Scambia 
(bh) 


Figura 4, Uso della ricorsione per generare tutte le perautaz 
di carabtert. (a) Perautazione dei primi N-1 caratteri, - 
nendo i‘N-asimo catatbere. (bh) Scambio deli“N-esimo caratte 
ilk 


“BS 1AG. 


ion 
abte~- 
@ con 


bes ice risolubiva viene indicate con i] nome PERMUT. L°esacuzione 
dell“algoriao PERMUT da* come riultato la stasna di tubte le possibili 
permutazion! degli N caratter!. (...}). 91 supponga che inizialmente 4 


Sia uguale ad i - allora c’e” solo una permutazione (i! carattere stes~- 


i} 


&™sS 


Saee 


hin 


18089 


ina technica per Sigulare ia ticorsione in COBOL PAGE 40 


so}, ed in tale caso PERMUT stampa semplice ente la stringa @ termina, 
pertanto PERMUT funziona corrattamente se " uguale ad 1. Per N uguale 
aéci sono due permutazioni, @ PERMUT le staspa entrambe. Per N uguale 
a@ il corpo del loop DO-VARYING viene eseguite due volte, la prima per 
K uguale a 2 e@ quindi per K uguale ad 1. Ogni volte PERMUT viene chiama~ 
ta ricorsivamente con N-i uduale ad i, @ ne risulta semplicamente una 
stringa stamoata. La prima volta i dus caratteri sono nel lore ordine 
originario (X¥"°) @ ja seconda volta ess a scambiabi (YX"}. £° 
oppor tuna notare che if secondo scaabia riporta {a stringa ne! sua ordi- 
ne originario (XY°) al termine dell’algoritmo. Pertanto PERMUT funziona 
correbtamente per N uguale a 2. Per N uguale a 3 i] loop DO-VARYING vie- 
ne eseguite tre volte ogni volta con N-l uguale a @ nalla chiamata ri- 
corsiva. Dato che da una chiamata di PERMUT con @ carabberi risultana 
correttamente stampate due perautazioni, da PERMUT con N uguale a d ri- 
suitano stampate d¥2, ovvera 4 perautaziont. Questo e° il numero asabtte 
fella possibili yn mubazioni per N uguale a 3, a dato che per ognuna 
delle tre esecuzion; delle chiamate ricarsive c°e” un carabtere diversa 
nella terza posizione tutte @ sei is str nghe Stampate sono permulazion! 
di fferenti (e di nuova, alla fine, la stringa viene lasciata nel sua 
stato originario). Continuando l’analisi in questa manieray $i pug” ve~ 
dere PERMUT lavorare correttamente per aki valore di NY. 


Variabili: 


SK SE Ge Se St EOE HS See eee 


Wibare} 


N es il numero di elementi da perg 
STRING 8° if vebtore che conbiene gli elementi da peraulare? 


K e* Pindice che serve a scambiare i“N-esimo elemento. 


Procedura PERMUT ricorsivas: 


I I I ee 


THEN 
DO VARYING K FORM N BY -1 WHILE Ko o= 1 
STRING (K} ss=: STRING CN) 
PERMUT (STRING, N-1} | 
STRING (K) s==: STRING (N} 
aD | 
ELSE 
scrittura STRING 
FI 


END PERMUT 


go, 
hes, 


ij 


Una tecnica per simulare [a ricorsione in COBOL . PAGE 


Codifica in linguaggio MPL ITs 


SS GA SR SSE SE WOE UE RR RE ok pe SA Oe ae 


PROCEDURE MAIN; 


$ LIBRARY CONVERSION 
$ LIBRARY DECIMAL 

$ LIBRARY STRING 

& LIBRARY LER 

§ LIBRARY LH.FX 

§ LIBRARY LN.IN.N 

§ LIBRARY LN.OUT.N 
$ LIBRARY LAJXCH 


DECLARE 1 RECORD.STANPA CHARACTER (10), 
@ STAMPA.CH CHARACTER (1);} 


FILE LISTA WORK.AREA RECORD. STAMPA; 
DECLARE J FIXED; 
PROCEDURE PERMUT (STRING, N}} 


DECLARE K FIXED; 


THEN UNDO} 
GTAMPA.CHGI-1+1} t= STRING(J-i+1}3 
J t= j + 1} 
END; 
WRITE (LISTA}; 
END; 


END PERMUT? 


= 4 


- 


na tecnica per simulare ja ricorsione in COBOL 


DECLARE N FIXED; 


DISPLAY ("INSERISCT IL NUMERO DI ELEMENTI"); 
TNPUT.N CN); 


TF N > 0 AND N <= 16 
THEN 
BO 


Knee 


a we 0} 


BG FOREVER; 
TF J = N 
THEN UNDO? 
CONVERT (0, STRING(J-i+1), 037 
Jas G+ 1} | 
END; 


OPEN {LISTA); 
PERMUT (STRING, ND} 
CLOSE (LISTA}; 

END; 


END WAIN? 


DEVICE (LISTA) $= 
RECORD (LISTA} i= 10; 
BUFFER (LISTA) t= 10; 
NO.BUFFERS (LISTA) = 
NO.LABEL © (LESTA) : 
CLOSEMODE (LISTA} : 
ACCESSHODE (LISTA) = 
HYUSE (Listes 


ut 


ferns ert pera ounatn  egeey ; 
~_ “8 go ee se of 
“eg “SEM ey § 


RELEASES 
SEQUENTIAL 
OUTPUT; 


mn W ‘W rT 
79 - 


32 


gage, 


Se 


ima tecnica per simulare ia ricorsione in COBOL | PAGE 2 


Pooudocodifica ricorsiva aodificata in aodo da sostituire il ciclo 


‘a G6 Gk ines a RR eR ie GE Ea ea A ae UO a FR a aR EE i ae a RN UM Oe iN Hie Ea OOO ie GE RR GH ae 


the OP Seb Ue Ree Ged SE RF GE ts HES IR) OO She ee He Re RR RA te HO eS 


PERMUT (STRING, ND 
SCAMBIG.CHIANATA.SCANBIO (STRING, Ny K) 


IF Kk > 9 
THEN | 
STRING (K} > STRING (N} 
PERMUT (STRING, N-1) 
STRING (K} t==: STRING (N} | 
SCAMBIC.CHIAMATA.SCAMBIO (STRING, Ny K-1) 


‘wet 


Esa 
ei ie 


FI 


END SCAMBIO. CHIAMATA.SCAMBIO 


TF Noi 


THEN 
SCAMBIO.CHIAMATA.SCAMBIO (STRING, Ny N) 
ELSE 
scrittura STRING 
Fi 
END PERMUT 


Una tecnica per $i inglar e la ticorsione in COBOL PAGE 


Codifica in linguaggio HPL ITs 


SE SRO TO GE Ka EE tee URE GE He SR RE aE I te eS aR te hee ae 


PROCEDURE, MAIN; 


% LIBRARY CONVERSION 
$ LIBRARY DECTMAL 

$ LIBRARY STRING 

$ LIBRARY LM.UR 

$ LIBRARY LH.FX 

$ LIBRARY LNJIN.N 

$ LIBRARY LA.OUT.N 
$ LIBRARY LM.XCH 


SEE 
oe 


* DECLARE 1 RECORD STAMPA CHARACTER (10), 
® STAMPA.CH CHARACTER (13 


* FILE LISTA WORK.AREA RECORD. STAMPA; 
DECLARE J FIXED; 
PROCEDURE PERMUT (STRING, N); 


PROCEDURE Sc eCALL.SC (STRING, Ny Kd} 
IF K > 0 
THEN 
DO} 
SCAMBIO (STRING (K-21), STRING (N-1)); 
PERMUT (STRING, N-1)3 os 
GPAMBIC (STRING (H-1), STRING (N-1)}3 
SC.CALL.SE (STRING, Ny K-1)} 
END}. 
END SC.CALL SC; 


Tk M4 
THEN 
BC.CALL.SC (STRING, Ny N)3 


— 
&, ge 


ND 
STAMPA.CHGI-it1) t= STRING(J-1+1); 
dts Jeti 


if WRITE (LISTADs 
wel ENDS Pi 


END PERMUT; 


Una tecnica per simulare ja ricorsione in COBOL | | PAGE 


DECLARE 1 RECORD.STRING CHARACTER (10), 


2 STRING 


DECLARE N 


CHARACTER (1)3 


FIXED? 


AY ("INSERISCT IL NUMERO DI ELEMENTIN); 


CONVERT (0, STRING(U-ith), dd} 


DISPEL 
INPUT.N GDS 
IF N> OQ AND N <= 16 
THEN 
00; 
Jig 
BO FOREVER; 
Fd 
THEN UNDO: 
disdet 
END: 
OPEN (LISTA); 
PERMUT (STRING, ND3 
CLOSE (LISTA); 
ENDS 
END MAINS: 
FINES 
catch domictra a cicietamaa 


DEVICE (LISTAD 
RECORD (LISTA) 
BUFFER (LIST) 
NO.BUFFERS (LISTA) 
NO.LABEL © (LISTA} 
CLOSEMODE (LISTA} § 
ACCESSMODE (LISTA) = 
MYUSE (LISTA) = 


Se 


ae 


seas ae 
mn rT] W fe | re 


ca 
— 


“sg “MI got ele od 
“gq “HE eg 


ae 


ery 
= 


EASE? 
QUENTIAL 5 
TPUT} 


rei 


He i ae ROR Reh NR Rei: RRO IY Heth ae tle Ct ARN Ss ae Ca HAN HRD Dine Kew Nome fetes RON GORE wie OE 


ee 


es, 


tow! 


lina tecnica per simulare la ricorsione in COBOL PAGE 


Be ee Re ee ak ae 


SAVEN e° i] vettore ubilizzato per conservare i] valore di Np 
SAVER e° il vebtore utilizzato per conservare i! valore di K} 


BP e io stack pointer. 


Psoudocodifica non ricorsivat 3 


ime em RN A ine NE Rie PRs RINE eH aN RRR A te RN) ean hi ie a 


zs=i STRING (N) 


FI 


ELSE 
scrittura STRING 


END PERRUT 


44 


ina tecnica per simulare ja ricorsione in COBOL PAGE 3? 


Codifica COBOL: 


Se RE EE TR A BRS 


000500 PROGRAMMA COBOL HC.07 
o004008 | | : 
000700% DATA: | 19/06/85 (GG/HM/AA} " 
- OOOROOs : 
C 000900% ARGOMENTO: SIMULAZIONE DT RICORSIONE CON PERMUTAZIONI : 
OC : 


a 
i) 005800 


| 005900 
= 004000 
(.) 004100 IDENTIFICATION DIVISION. 
006200 
004706 
004400 ENVIRONMENT DIVISION. 
008500 
es 004800 
* 004700 DATA DIVISION. 
004800 
= 004900 
he 007000 WORKING-STORAGE SECTION. 
007100 
. 007200 01 RECORD-STACKS. 
* | 007300 «02 SAVEN OCCURS 100 TIMES PIC 9. 
007400 02 SAVER OCCURS 100 TIMES PIC 9. 
7 007500 
ce 07400 OL STACK-POINTERS. 
007700 «08 SP Prt 999, 
ses as | 007800 
ie. | 007900 01 VARTABILI-SCALART. 
oono0d «=P ON PIC 9, 
oogiog = sg? sk PIC 9. 
008200 62 TEMP Prt 9, 
oosz00 «=a PIC 99. 
008400 


OO8500 01 RECORD-STRING. 
608400 Q2 STRING OCCURS 10 TIMES PIC 9. 
008700 


gotesie, 


: a 


er" 


oa 


r4 


Una tecnica per simulare [a ricorsione in COBOL PAGE 


O08800 PROCEDURE DIVISION. 


008900 


009000 MAIN. 


007100 
607200 
009200 
007400 
009300 
0074008 


0094508 


009700 
009200 
909900 
010000 
O10100 


010200 | 


010300 
010400 
010500 


DISPLAY “INSERISCI IL NUMERO DI ELEMENTI DA PERMUTARE". 
DISPLAY "(UNA CIFRA)". 
ACCEPT N. 


si genera ia prima permutazione con numeri in ordine 
crescente | | 
MOVE SPACES TO RECORD-STRING. 
PERFORM GEN-PRIMA~PERMUTAZIONE VARYING J FROM i BY i 
UNTIL J > N. 


PERFORM PERMUT. 


STOP RUN. 


010600 GEN-PRIMA-PERNUTAZIONE. 


$10700 
O10800 
010709 
O11000 


MOVE J TO STRINGGH. 


Q11100 PERMUT. 


011200 


011700 
O11400 


011300 
O11400% 
011700 
011800 
$11900 
O12000% 
012100 
012200 
012300 
012400 
012500 
012600 
612700 
012500 
012900 
013000 
013100 
013200 


TFN? 1 
THEN 


push 
COMPUTE SP = SP + 1, 
COMPUTE SAVER(SP) = K, 


call 
COMPUTE K = Ny 
PERFORM SCAMBIO-~CHIAMATA-SCAMBIO, 


pop 
COMPUTE K = SAVEK(SP), 
COMPUTE SP = SP - i; 


ELSE 
DISPLAY RECORD-STRING. 


s 
= 


ina tecnica per sisulare la ricorsione in COBOL PAGE = 39 


013300 SCAMBIO-CHIAMATA-SCAMBIO. 
013400 

013500 TF K > 0 

013400 THEN 


keg” 


012700 

OLF80G# Scambio STRING(K) con STRINGIN} 
013900 MOVE STRING(K) TO TEMP; 
014900 MOVE STRING(N) TQ STRING(K), 
OL4100 MOVE TEMP TO STRING(N} » 
014200 | 

OL4200% push 
-$14450 COMPUTE SP = SP +1, 

O14500 COMPUTE SAVEN(SP} = N, 

014400 

014700 call 

$14900 COMPUTE N=N- 1, 

014900 PERFORM PERMUT, 

§15006 

O15100% nop 

013200 COMPUTE No = SAVEN(SP) 

913500 COMPUTE SP = SP - q, 

O13400 

O152008 scambio STRING(R} con STRING(N) 
$1340 MOVE STRING(X) TO TEMP, 
915700 MOVE STRING(N) TO STRING(CR); 
$13800 MOVE TEMP TO STRING(N) ; 
915900 

O14000% push 

014100 COMPUTE SP = SP + i, 

014200 COMPUTE SAVEK(SP} = K, 

916309 

0164008 call 

$14500 COMPUTE K= kK - 1, 

O16600 PERFORM SCAMBIO-CHIANATA-SCAMBIC, 
014709 

O14800% pop 

016900 COMPUTE K = SAVER(SP), 

017000 COMPUTE SP = SP - 1. 


Una tecnica per simulare fa ricersione in COBOL PAGE 40 
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2 


e Os, ae Se 


Una tecnica per sigulare la ricorsione in COBOL | PAGE = 41 


BIBLIOGRAFIA 


Il concetto di locale e di globale: scope delle variabili 
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TSERT, "977, capitelo id. 


Moore L.: "Foundations of Programming with Pascal” {3} 
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ign of Programming Languages” 
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la. 


La ricorsione 
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Moore L.? “Foundations of Programming with Pascal" 
Ellis Horwood Liaited, 1980, capitolo 14. 
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goting 
ee 
Raye? 
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I linguaggi 
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manual" codice 2007244. 
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APPENDICE 1 
Note particolari sulla Pseudocodifica utilizzata 


simbola Z (percento) precede un commento e puo” trovarsi anche 


It 
fiatamente a destra di una istruzione. 


immed i 


Tl sigbolo ==! indica che si intende scambiare i] contenuto delle 
yvariabili che si trovano ai suoi iati. 


= = 


ry 
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Library MPL II non standard utilizzate 


LH.UR 
ETSAIETEATETAAETRAA LEER EES ER ESEREEEEAETA REET EGET EA LET ERT ERE STE REE TEESE 
MLIBRARY : | he 
4%  PROCEDURA CHE PERMETTE L° ALLINEANENTO A DESTRA DI UN NUMERO. ke 
& USO DELLA FUNCTION "SIZE". h 


hhbhhihhbhbhhhahhhibhhbhhuhbahuhhuhhshbahhuhhhhihbnhbhhhhihhbhhichhihhich 


PROCEDURE SPOSTA.DESTRA (VARIABILE}; 
DECLARE DIMENSIONE FIXED; 
DIMENSIONE i= SIZE (VARIABILE}; 
DECLARE A FIXED; 
DECLARE & FIXED; 
DECLARE YAR. INPUT CHARACTER (DIMENSTONE); 
REMAP = YAR. INPUT: ELEM.ACDIMENSTONE} CHARACTER (1); 
DECLARE YAR OUTPUT CHARACTER (DINENSIONE)} , 
REMAP = VAR.OUTPUT: ELEM. B(DIMENSIONE) CHARACTER (1); 


UARINPUT t= UARTABILE: 


A t= DINENSIONE ~ 1; % QUESTO PERCHE’ IL VETTORE HA ANCHE 
B f= BIMENSTONE - 1; & LA POSEZTONE ZERO cae 
DO FOREVER; 
TF ELEM.ACA) /= " "  Z BLANK 
THEN UNDO} 
ELSE BO} 
TF A= 9 
THEN DO? 
VARTABILE == VAR.OUTPUT? 
RETURN; 
END} 
ELSE Ate 1; 
END} 
END; 


= 5 


~~ 2 i) m4 


= 7 


ppendice 2 LMR PAGE 


BO FOREVER; 
iF ELERACA) = " " ZBLANK 
THEN ELEN.B(B} &= "OQ"; 
LSE ELEN.B(B} t= ELEN ACA); 
IF A= 0 


VAR. QUTPUT 


ae 
ood 
i 
Sa 
J 
font 
re 
mei 
sx 
Hi 


Song at 


RETURN? 
END; 
ELSE DQ; 
Bi). — 
ELEN.BCB) s= "QM; 
END; 


ee 


it 


s 


Zz 
END SPOSTA.DESTRA; 


44 


= es 


LHLFR 
ELLE LEE LEEA EE EERA ASE T RARE TEES ARE REEEE STATE EAT ESERERESEE ETE TS 
YLIBRARY MPL: | ay 
%  PROCEDURA CHE CONVERTE UN NUMERO ASCIL 0 PACKED IN FIXED ¥ 


h , y; 
bhhhhbhhbhhhhbbhhohhuhhhhbnhchhhhahbhhuhhchhnhchhuhhuhhuhhbhhnhhnhilah hh 
PROCEDURE CONV.FX (TIPO.CONVERSIONE, VAR.FIXED, VAR. INPUT); 


PROCEDURE CONV (VAR.FIXED, VAR. PACKED) + 
REMAP VAR.FIXEDS B(16)  BIT(1); 
PROCEDURE SETTAGGIO.BIT (N.BIT, VALORE, PESO); 


TF VALORE = 1 
THEN 
DO} 
BC@N.BIT} t= @(2)18) 
DEC.SUB (VAR. PACKED, PESO); 
END; 
ELSE 
BCEN.BIT) s= @CL}OG} 


END SETTAGGIG. BIT; 


ss 
= # 
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TF DEC. COMP (VAR.PACKED, “@30000000000000008") = 43533 
THEN 
DO; | 
DISPLAY ("ERRORS#NUMERO < ZERO NON AMMESSO")> 
STOP} 
END} 
ELSE 
| TF DEC.COMP (VAR. PACKED, “@2000000000029323@") = 1 
THEN 
DO} | 
DISPLAY ("ERRORMSNUMERD > 45535")3 
STOP} | 
END; 


IF DEC.COMP (VAR.PACKED, "@3Q000000000327480") /= 65535 
THEN 
SETTAGGIO.BIT (0, 1, “@3eooooo0000z27688"); 


TF DEC.COMP (VAR.PACKED, "@30000000000163848") /= 435.35 
THEN 
SETTAGGIO.BIT (i, i, "@30000000000163848"); 


TF DEC.COMP (VAR. PACKED, "@30000000000081928") /= 43535. 
THEN 
SETTAGGIO.BIT (2, 1, "@30000000000081920"}; 


IF DEC.COMP (VAR.PACKED, “@30000000000040948") /= 43335 
THEN 
_ SETTAGGIO.BIT (3, 1, “@20000000000040968"); 


Tr DEC.COMP (VAR.PACKED, "“@3000000000002048@") /= 43335 
THEN 
SETTAGGIO.BIT (4, 1, “@3000000000002048@"); 
TF DEC.COMP (VARPACKED, "@30000000000010240") /= 63335 


THEN 
SETTAGGIO.BIT (5, 1, “@40000000000010248"); 


IF BEC.CONP (WARLPACKED, "@3G00D000000008128") /= 45575 
THEN | | 
SETTAGGIO.BIT (4, 1, "@3o000e00900005120")3 


. 


IF DEC.COMP (VAR.PACKED, "@3qoo0000000002540") /= 65535 
THEN ts 
SETTAGGIOWBIT (7y 1, “@300000000000025468") ; 


SETTAGGIO.BIT (8, 1, “@0000000000001288"); 


TF DEC.COMP (VAR. PACKED, "BZOQOOOOO00000044E") /= 45535 


: er (9, 1, "@30000000000000540"); 

© | IF DEC.COMP (VAR.PACKED, "@3000000000000032@") /= 45525 
i nr eepiatie tis (40, 1, "@30000000000000328"} 

- IF DEC.COMP (VAR.PACKED, "@30000000000000140") /= 45535 
‘e wm oetrisaim iT (11, 1; segsooomnosaonen de a 
5 IF DEC.COHP (VAR.PACKED, "@3000000000000008@") /= 65535 
7 or (42, 1, "830000000000000088") 

IF DEC.COMP (VAR.PACKED, "@z0g0000000000004@") /= 45535 
6 we SETTAGGIO. AIT (13, 1, "830000000000000060") ; 

~ IF DEC.COHP (VAR.PACKED, "@30000000000000020") /= 45525 
© ag ereenry (14, 1, “@¥oooodoooo 0000028"); 

5 IF DEC.COMP CAR. PACKED "970000000000000010") /= 45525 


BETTAGBIO.BIT (15, 1, “@20000000000000018"); 


END CONY; 


Pee 
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DECLARE VAR.PACKED CHARACTER (8); 
DECLARE VAR. INPUT.SIZE FIXED; 


VAR. INPUT.SIZE t= SIZE (VAR. INPUT); 
DECLARE VAR INPUT.RECO CHARACTER (VAR. INPUT. SIZE); 


VAR INPUT.RECO f= YAR. INPUT? 


VAR.FIXED = 0} 


TF TIPO.CONVERSIONE =O 
THEN CONY CYAR.FIXED, VAR. INPUT); 
ELSE IF TIPO.CONVERSIONE = 1 


THEN BO} 


CONVERSION (5, VAR.PACKED, YAR. INPUT); 
CONV (VARAFIXED, YAR. PACKED) ; 
END? 
. ELSE DOs 
‘. DISPLAY ("ERROR CONV.FX® TIPO.CONVERSIONE ERRATO"}: 
DISPLAY ("ERROR CONV.FX® FINE LAVORO FORZATO!"}; 
| STOP: 
END; 
_ UAR.INPUT t= VAR.INPUT RECOs 
END CONV.FY: 


"% 


er, 

= = 

cS > 
Fee 


agg 


ai ef gk at oe 


LAIN 

fabahhe SHELELEAETAEEEEEEEEETEEAETESTHSNETSEEASERYRETERRER ETN EET ET EA EERE 
& LIBRARY MPL. 27/04/94 

7 ESEGUE L‘ACCEPT DI UN NUMERO FIXED GON GLI ADEGUATI CONTROLLI; 

& LA CHIAMATA DEVE ESSERE FATTA COSI°: ““INPUT.N (N.FIXED) °° DOVE 

& N.FIXED RAPPRESENTA LA VARIABILE FIXED CHE ST YUOLE RIEMPIRE. 

‘A i 
4 QUESTA LIGRARY FA USO DI: LE.UR, UM.FA, CONVERSION, DECTMAL h 
bhhhhbhhhhhhhibkihbhhhbhahbhhhhhbhbakhhhekhhhhsbhhhkshahehahihbhihbhhnh 


a 


ROCEDURE INPUT.N (N.FIXED)} 
DECLARE N.ASCTT CHARACTER (16); 
DECLARE N.PACKED © CHARACTER (8); 


ACCEPT (N.ASCIT); 
SPOSTA.DESTRA (N.ASCII}; 
CONVERSION (i, N.PACKED, N.ASCIT); 


IF DEC.COMP (N.PACKED, “@30000000000000000") = GFFFFE 
THEN 
DO; 
DISPLAY ("IL NUMERO INSERITO E’ MINORE DI ZERO, RIPETI"); 
INPUT. (N.FIXED); 


RETURN; 
END? 
ELSE 
TF DEC. COMP (N.PACKED, "@30000000000633290") = 1 
THEN 
BO; 


DISPLAY ("IL NUMERO E° MAGGIORE DI 45535, RIPETI"); 
INPUT.N (N.FIXED); 


& IL NUMERO E” YALTDO 
? 


CONVEX (Q, N.PIXED, N.PACKED); 
END INPUT .N? 
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LA.OUT.N 
LEAEEASETAREEAEESRTELERTRETEESEETSEENAESRETER ESSAY EASES EERSTE ERY REEL EE 
% LIBRARY MPL. 27/04/94 | ¥ 
: z 
& ESESUE TL BISPLAY DT UN NUMERO FIXED; hk 
¥ | | 1 
& PER CHIAMARE LA PROCEDURA: “OUTPUT NCN.FIXED)’° DOVE N.FEXED E° od 
& IL NUMERO OQ LA YARIABILE FIXER CHE ST YUOQLE VISUALIZZARE SU SPQ. 2 
yl | é 


/ LA LEBRARY FA USO DI: CONVERSION | 
LELETESA UT LSEAAAALSAERSA ATEN ERATE LETRA ESTER RAR EEEEE EERE 
PROCEDURE QUTPUT.N (N.PIXED); 


ae 

= 
= 
par 

aul 

ad 

spond 

aed 


DECLARE N.ASCIL CHARACTER (La); | 
CONVERT (1, N.ASCIT, N.FIXED); 
DISPLAY (N.ASCIT); 


END QUTPUT.N; 


Fan 


S 
a 


& LIBRARY HPL | 26/3/34 

he 

& SOND TRE PROCEDURE CHE ESEGUOND L’INPUT DI UN VETTORE CIN.MAT.N.1) 
& NUMERTCO, L°INPUT DT UNA MATRICE A DUE DIMENSTONE CIN MAT.N.2) 


YY IN.MAT.N.2 (TABLE, X, ¥) 
’ IN.MAT.N.E (TABLE, ¥} 


h 

% PRIMA DI QUESTA LIBRARY SONO NECESSARIE LE SEGUENTI: 
h DECIMAL; 

i CONVERSION, 

h STRING; 

h LM.UR, 

h LN.FX, 

he LM.IN.N 

4 
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LN. IN.MN 


eG 


a3 


Lhhbhhbhhbhhihhhnhbuhhbhhhanbhhhihhobhihhbhhbbhhbhhuhhbhhhhhhhbhhhbnhhk 


4 E L’INPUT PER UNA HATRICE A TRE DIMENSION] CIN.MAT.N.G). 
vA . 
, LA CHIAMATA E° DEL TIPO: IN.MAT.N.3 (TABLE, X, Y; 2} 


# DOVE X, YE 2 SOND LE DIMENSTONT (RIGA, COLONNA, ... } DELLA TABELLA 1 


ee 8 pt gt ope gf ge get meg re paiva calor mina heen fed 


hhbhhbhhehh ncn EET 


a 


— 
ee on 


iets 
oo, 


es 
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PAGE «52 


PROCEDURE IN.MAT.NW1 (VETT, €)} 
% IL VETTORE E° LUNGO Cae BYTE 
DECLARE & FIXED; 
DECLARE K.CH CHARACTER (6)3 
DECLARE IND FIXED} 


If 
DECLARE MESSAI 
REMAP MESGAGGTO: HESS. CH(77) 


% VISUALTZZARE IL MESSAGGI 


SHEAR (MESS.CH, 0, 77, " "; 


CONVERT(L, K.CH, K); 
SUBSTR(MESSAGGIO, 0, 29) 
SUBSTR(MESSAGGIO, 29, 4) 


SUBSTRCMESSAGGIO, 34, 1) t= 


DISPLAY (HESSAGGIO); 


INDICE i= 28 (Kh - 1); 
INPUT.N (VETTCINDICE) 3; 


END? 
END IN.MAT.N.1} 


CHARACTER (77); 
CHARACTER (Hj 


Q: "INSEIRSCI L“ELEMENTO VETTORE(K)" 
77)} % AZZERAMENTO RECORD MESSAGGIO 


= "INSERISCT L°ELEMENTO VETTORE("; 
s= K.CH} 


‘gai 


se 


ee ig 
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PAGE ad 


PROCEBURE IN.MAT.N.2@ (MATR, Ry C3 
¥ TL VETTORE E° LUNGG CRs? BYTE 


DECLARE 

DECLARE 4.CH 

DECLARE N 

DECLARE N.CH 

DECLARE INDICE 

DECLARE MESSAGS1O 

REMAP HESSAGGIO:MESS. cH(77) 


Hor 05 


BO FOREVER} 
Most 13 
IF AR 
THEN 
UNDO} 
NoG= OF 
DG FOREVER; 
Nort 1} 
IF NOC 
THEN 
UNBO} 


FIXED; 

CHARACTER (4&3; 
FIXED; 

CHARACTER (63; 
FIXED? a 3 
CHARACTER (7737 
CHARACTER (1); 


% VISUALTZZARE: "INSETRSCT L°ELENENTO MATRICE(H, ND 


SMEAR (MESS.CH, 0, 77; " 
CONVERT(L, M.CH, §); 
CONVERT(1, N.CH, ND; 
SUBSTR(MESSAGGIO, 0, 29) 


SUBSTRCMESSAGGIO, 29, 4) 3 


SUBSTR(MESSAGGIO, 34, 1) 


SUBSTR(MESSAGGIO, 38, 4) t= 
SUBSTR(MESSAGGIO, 43, 1): 


DISPLAY (MESSAGGIO} ; 


", 77)3 2 AZZERAMENTO RECORD MESSAGGIO 


s= “INSERISCT L’ELEMENTO MATRICE("} 


INDICE f= 24 (M- i} 04+ W- 13 


INPUT.N (NATRCINDICE) }} 


END? 
END? 


END IN.MAT.N2} 
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PROCEDURE IN.MAT.N.3 (HATR, X; Y, 2}3 
& IL VETTORE E° LUNGO XeYeZe2 BYTE ~ 


= DECLARE ¥ FIXED; 
so DECLARE 4.CH CHARACTER (433 
DECLARE N FIXED; 
a DECLARE N.CH CHARACTER (4): 
C DECLARE 0 FIXED; 
DECLARE 0.CH CHARACTER (43; 
. DECLARE INDICE FIXED; 
© DECLARE HESSAGGIO CHARACTER (773 
REMAP MESSAGGIOSNESS.CH(77) CHARACTER (1)3 
r= OF 
7 DO MLOOP FOREVER; 
.. Mort it 
IF M> X 
THEN 
C? UNDO MLOOP; 
N t= 0} 
DO NLOOP FOREVER; 
() Nort 3 
IF NOY 
THEN 
CO UNDO NLOOPs 
0 := 0; 
” DO OLOOP FOREVER; 
C) e+ 15 
IF 032 
. THEN 
C) UNDO OLOOP; 
~ % VISUALIZZARE: “INSEIRSCI L°ELEMENTO MATRICE(X,Y,Z)" 
‘@ 


SMEAR (MESS.CH, 0, 77, "", 77)3 2 AZZERAMENTO MESSAGGIO 
CONVERT(1, M.CH, HD} 
CONVERT(L, NCH, ND} 
CONVERT, O.CH, 0); 
SUBSTR(NESSAGGIO, OG, 27) ° 
te! SUBSTR(MESSAGGIO, 29, 4) : 
SUBSTR(MESSAGGIO, 24, 1) 5 
y | SUBSTR(MESSAGGIO, 38, 4) : 
haw SUBSTR(MESSAGGIO, 45, 1) : 
SUBSTR(MESSAGGIO, 47, 4) : 
SUBSTR(MESSAGGIO, 34, 1) : 
DISPLAY (HESSAGGIO) ; 


“INSERISCT L°ELEMENTO MATRICE("; 
MC; 


id 
Hon Ho on Ron W 
it 
a 
“sg ae 


INDICE t= an((M-L)xYa2 + (N-L}aZ + (0-10); | 
TNPUT.N CMATRCINDICE) }} 


END OLOOP; 
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END NLOOP; 
END LOOP; 


END IR.MAT.N.3} 


: , 
ae 


PAGE 35 


cn 


= 
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LA.OUT ER 
EEE THETEEETEEENETEEERRETEEE RTH TERETE ETRE TARTAR TEETER ETRE RET THEE 
% LIBRARY HPL 94/5/96 


ae 


% SONO TRE PROCEDURE CHE ESEGUONO L“QUTPUT DI UN VETTORE (OUT.MAT.N. 1) 
( 


he 

Ff 
% NUMERICO, L°OUTPUT DI UNA MATRICE A DUE DIMENSTIONE (QUT.MAT.N.2) ke 
2 E L’OUTPUT PER UNA HATRICE A TRE DIMENSIONT (QUT.MAT.N.G). he 
it | h 
% LA CHIAMATA E’ DEL TIPO: OUT.MAT.N.3 (TABLE, X,Y) Z) h 
he QUT.HAT.N.@ (TABLE, X,Y) h 
k OUT.MAT.N.1 (TABLE, X)} A 
4 DOVE X, YE Z SONQ LE DIMENSIONT (RIGA, COLONNA, ... ) DELLA TABELLA & 
4 he 
% PRIMA BI QUESTA LIBRARY SONG NECESSARIE LE SEGUENTI: 4 
i DECTMAL 4 
he CONVERSION; he 
i STRING; h 
he LMJR, he 
h LN.FX; he 
4 b. 


LELALAALLRAALALELALEARE LKR ERA bbhhbahhbhhbahhanh dehhhanhbahhhahhhuhhihhhh 


DECLARE RECORD.PR.FILE CHARACTER ( (132); 
REMAP RECORD.PR.FILE: RECORD.PR.CH(i32) CHARACTER(1); 


FILE PRINTER. FILE WORK AREA RECORD. PR.FILE; 


2 em mn i i tt tt 
DEVICE (PRINTER. FILE} = PR} A ANY PRINTER DEVICE 
RECORD (PRINTER.FILE} = 132} 
BUFFER (PRINTER.FILE) t= 132) 
NOJBUFFERS (PRINTER.FILE} t= 1; 
NG.LABEL  (PRINTER.FILE) := 1} 
CLOSEMODE (PRINTER.FILE) t= RELEASE? 
ESE uk: NER. ire = QUTPUT? 


i iy se 
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PROCEDURE QUT.NAT.N.E (VETT, ()} 


% IL VETTORE E° LUNGO Cx2 BYTE 


DECLARE & FIXED; 

DECLARE &.CH CHARACTER (4); 
DECLARE VETT .CH CHARACTER (4); 
DECLARE NESSAGGIO CHARACTER (132); 


REMAP NESSAGGIOIMESS.CH(132} CHARACTER (1); 
OPEN (PRINTER FILE); | 


& SCRIVI UNA RIGA DI TRATTINI 
GMEAR (RECORD.PR.CH, 9, 132, "~", 132); 
WRITE (PRINTER.FILE); 


K = OF 


DO FOREVER; 
=z Kk + 
oe 


% SCRIVI IL VALORE DELLELENENTO YETTORE(K) 


SHEAR (MESS.CH, 0, 132, "", 132)} Z AZZERAMENT( RECORD MESSAGGIO 
CONVERT(1, RCH, &; 
CONVERT(L, VETT.CH, VETTCCK-1)#2)); 

SUBSTR(MESSAGGIO, 0, 24) t= "L°ELEMENTO DEL VETTORE ("3 
SUBSTR(MESSAGGIO, 24, 6) += RACH) 

SUBSTR(MESSAGGIO, 41, 4) s= ") =") 
SUBSTR(MESSAGGIO, 34, 6) s= VETT.CH; 
RECORD.PR.FILE i= MESSAGHIO; 

WRITE (PRINTER FILE); 


END} 

ZSCRIVE UNA RIGA DI TRATTINI 

SMEAR (RECORD.PR.CH, 0, 132, "-", 132); 
WRITE (PRINTER.FILE}; 


CLOSE (PRINTER.FILE}; 


END OUT.MAT.N.1; 
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PROCEDURE QUT.MAT.N.2 (MATR; Ry 0} 
% TL VETTORE E* LUNGO C¥R¥2 BYTE 


~ DECLARE ¥ FIXEDs 

‘< DECLARE #.CH CHARACTER (4); 
DECLARE N FIXED3. 

oe DECLARE NACH CHARACTER (4) 

C DECLARE HATR.CH CHARACTER (4)3 
DECLARE MESSAGGIO CHARACTER (132; 


REMAP MESSAGGIO:MESS.CH(132) CHARACTER (1): 
OPEN (PRINTER FILE}: 


% SCRIVE UNA RIGA DI TRATTINI 
SMEAR CRECORD.PR.CH, 0, 132, "-", 1329; 
WRITE (PRINTER.FILE}} ee 


N t= 03 


‘a % SCRIVE L°ELEMENTO MATRICE(H,H) 


SMEAR (MESS.CH, 0, ide, " ", 192); % AZZERAMENTO MESSAGGIO 
CONVERT(1, M.CHy HM); 
CONVERT(L, N.CH, ND} 
CONVERT(1, MATR.CH, MATRUCN-i}e2#0 + (N-1)82))> 
SUBSTR(MESSAGGIO, 0, 26) t= "L°ELEMENTO DELLA MATRICE ("> 
GUBSTR(MESSAGGIO, 26, 6) #= H.CH; | 


2 4 


2 
t 


a SUBSTRCMESSAGGIO, 33, 1) f= ","7 
L | SUBSTR(MESSAGGIO, 34, 4) == NCH; 
SUBSTR(MESSAGGIO, 41, 4) f=") ="; 
0 SUBSTR(HESSAGGIO, 44, 6) $= HATR.CH; 
RECORD.PR.FILE == MESSAGGIO; 
se WRITE (PRINTER.FILE}> 
bai 
END} 
END} 


& SCRIVE UNA RIGA DI TRATTINI 


£ Ss 


a 
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SMEAR (RECORD.PR.CH, 0, 132, "-", 132); 
WRITE (PRINTER.FILE}; 


CLOSE (PRINTER.FILE}; 


END OUT.MAT.N.2} 
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PROCEDURE QUT.MAT.N.3 CHATR, X; Y, 23} 
% IL VETTORE E° LUNGO XeYeZe2 BYTE 


= DECLARE F FINED} 
C DECLARE N.CH CHARACTER (4)3 
DECLARE N FIXED; 
a DECLARE NCH ss SHARACTER (4)3 
C) DECLARE 0 FIXED: 
DECLARE 0.CH CHARACTER (433 
DECLARE MATR.CH CHARACTER (4)} 
DECLARE MESSAGGIO CHARACTER (432); 
REMAP MESSAGGIOSMESS.CH({32) CHARAC 


RACTER (1)3 
0 OPEN (PRINTER FILED} _ 


% SCRIVE UNA RIGA DI TRATTING: | 


(. SMEAR (RECORD.PR.CH, 0, 138, "=", 13233 
WRITE (PRINTER.FILED: 
(. Mois 03 
DO MLOOP FOREVER; 
( Mot it 
iF MD ¥ 
THEN 
( UNDOs 
Nos 3 
i DO NLOOP FOREVER; 
hase Nort 13 
IFN3Y 
THEN 
UNDO: 
O s= Q} 
DO OLODP FOREVER: 
QO + 43 
IF 032 
3 THEN 
, % SCRIVE L°ELEMENTO DELLA MATRICE (%,¥,Z) 
SMEAR (MESS.CH, 0, 132, "", 132); % AZZERANENTO MESSAGGIC 
ee CONVERT(L, HCH, Md; | 


bie! CONVERTCI,; NCH, NY} 

CONVERT(1, O.CH, 0); 
ee | CONVERT (1, HATR.CH, MAT 
ba! SUBSTR(MESSAGGIO, 0, 28 
: SUBSTR(MESSAGBIO, 24, 4) : 
SUBSTR(MESSAGGIO, 34, 1) : 
SUBSTRCMESSAGGIO, 35, 4) § 
SUBSTR(MESSAGGIO, 42, 1) : 
SUBSTR(MESSAGGIO, 44, 6) : 


RUCH-L)aOeYa2 + (N-L)e2eZ + (0+1)82))} 
} t= "L°ELEMENTO DELLA MATRICE ("3 
} t= CH; 


H Ra 
ae 2 Ae 


aeti 
=~ 
ex 
wee 


= 
ago 

eo 
oT a 

a 


‘ * 
Hom OH OU 


O.CH; 
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GUBSTR(MESSAGGIO, Si, 4) t=") = "3 
SUBSTR(MESSAGGIO, 54, 4) t= MATR.CH} 


< RECORD. PR.FILE r= MESSAGGIOS 
ae WRITE (PRINTER.FILE): 


END OLOOP; 
END NLOQOP; 
END LOOP; 


“SCRIVI UNA RIGA DI TRATTINI 
SMEAR (RECORD.PRACH, 0, 1dé, "-", 13¢)3 
WRITE (PRINTER.FILE}; 


ato, 


CLOSE (PRINTER.FILE}; 
© ENB QUT.MAT.N.3} 


Ay 
4 


2% 


=: = 


2 4 


g = 
. a 


- 


Ps = e 
S = 
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LHAXCH 
LALLALELALEEELLELELELLLLELELLEGLLE LARK bhbhbhhehethythatyehennteennny! 
% LIBRARY MPL. 29/5/04 mes 
" . 4 
QUESTA LIBRARY SERVE PER SCAMBIARE IL CONTENUTO BI BUE VARIABILI. Z 
¥ 


onium 


PROCEDURE SCAMBIO (A, 8} 

PROCEDURE SCAMBIO.TYPEL (A, 8, SIZEA)} 
DECLARE NEW.A CHARACTER (SIZEA}; 
NEW.A == A} 

A a= BF 
B r= NEGA; 

END SCAMBIO.TYPEL; 

PROCEDURE SCAMBIG.TYPES (A; 835 
DECLARE NEW.A FIXED; 

NEW.A == AF 
A r= §F 
B i= NEW.A} 

END SCAMBIO. TYPES; | 

PROCEDURE SCAMBIO.TYPES (A; B}} 
DECLARE NEW.A BIT (8); 

NEWLA G= A} 
A i= 5 
Bois HEWLA? 
END SCANBIO. TYPES} 


DECLARE SIZEA FIXED: 


THEN 
SCAMBIO.TYPEL (Ay By SIZEA}; 


SCAMBIO.TYPE@ (Ay B); 
IF TYPE(A) = 3 
THEN 
SCAMBIG.TYPES (Ay BD} 
TF TYPECA) = 4 OR TYPECA) = 
THEN 
DO} | | | 
DISPLAY ("ERROR “SCAMBIO’ YARTABILE "); 
STOP; 
END} 


0 OR TYPE(B) = 4 OR TYPE(B) = 6 


END SCAMBIO; 


